home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -serious- / programming / other / littelcomp / r5 / lc / examples / parvar.l < prev    next >
Text File  |  2000-02-28  |  408b  |  19 lines
  1. ;//  new feautures in LITTEL 0.17 //
  2. ;//  'CODESTART' MUST BE IN ANY PROC USING LOCALS OR PARAMS!! //
  3.  
  4. PROC main
  5.    VAR nisse  ;// declare local
  6.    CODESTART
  7.    copy 5     nisse
  8.    dpr  eva   nisse ;// send nisse along
  9. ENDPROC
  10.  
  11. PROC eva   %myparam  ;// receive param in %myparam (must begin with %) max 7 for now
  12.    CODESTART
  13.    mul 5   %myparam
  14. ENDPROC    %myparam
  15.  
  16. END  ;// program returns 25 in D0 ! //
  17.  
  18.  
  19.